home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbwav / vbwav.frm < prev    next >
Text File  |  1993-12-22  |  3KB  |  111 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Plays WAV files from PC Speaker"
  5.    ClientHeight    =   5265
  6.    ClientLeft      =   1245
  7.    ClientTop       =   1605
  8.    ClientWidth     =   7230
  9.    FontBold        =   -1  'True
  10.    FontItalic      =   0   'False
  11.    FontName        =   "MS Sans Serif"
  12.    FontSize        =   13.5
  13.    FontStrikethru  =   0   'False
  14.    FontUnderline   =   0   'False
  15.    Height          =   5670
  16.    Left            =   1185
  17.    LinkMode        =   1  'Source
  18.    LinkTopic       =   "Form1"
  19.    ScaleHeight     =   5265
  20.    ScaleWidth      =   7230
  21.    Top             =   1260
  22.    Width           =   7350
  23.    Begin FileListBox File1 
  24.       BackColor       =   &H00FFFF00&
  25.       FontBold        =   -1  'True
  26.       FontItalic      =   0   'False
  27.       FontName        =   "MS Sans Serif"
  28.       FontSize        =   12
  29.       FontStrikethru  =   0   'False
  30.       FontUnderline   =   0   'False
  31.       Height          =   2430
  32.       Left            =   3120
  33.       Pattern         =   "*.wav"
  34.       TabIndex        =   0
  35.       Top             =   480
  36.       Width           =   3975
  37.    End
  38.    Begin DirListBox Dir1 
  39.       BackColor       =   &H00FFFF00&
  40.       Height          =   2415
  41.       Left            =   120
  42.       TabIndex        =   2
  43.       Top             =   480
  44.       Width           =   2655
  45.    End
  46.    Begin DriveListBox Drive1 
  47.       BackColor       =   &H00FFFF00&
  48.       Height          =   315
  49.       Left            =   120
  50.       TabIndex        =   1
  51.       Top             =   120
  52.       Width           =   2655
  53.    End
  54.    Begin Label Label2 
  55.       Alignment       =   2  'Center
  56.       BackColor       =   &H00E0FFFF&
  57.       BorderStyle     =   1  'Fixed Single
  58.       FontBold        =   -1  'True
  59.       FontItalic      =   0   'False
  60.       FontName        =   "MS Sans Serif"
  61.       FontSize        =   18
  62.       FontStrikethru  =   0   'False
  63.       FontUnderline   =   0   'False
  64.       Height          =   2175
  65.       Left            =   120
  66.       TabIndex        =   4
  67.       Top             =   3000
  68.       Width           =   6975
  69.    End
  70.    Begin Label Label1 
  71.       Alignment       =   2  'Center
  72.       BackColor       =   &H0000FFFF&
  73.       BorderStyle     =   1  'Fixed Single
  74.       Caption         =   "*.WAV "
  75.       FontBold        =   -1  'True
  76.       FontItalic      =   0   'False
  77.       FontName        =   "MS Sans Serif"
  78.       FontSize        =   13.5
  79.       FontStrikethru  =   0   'False
  80.       FontUnderline   =   0   'False
  81.       Height          =   375
  82.       Left            =   3120
  83.       TabIndex        =   3
  84.       Top             =   120
  85.       Width           =   3975
  86.    End
  87. End
  88. Sub Dir1_Change ()
  89.     file1.path = dir1.path
  90. End Sub
  91.  
  92. Sub Dir1_Click ()
  93.     file1.path = dir1.path
  94. End Sub
  95.  
  96. Sub Drive1_Change ()
  97.     file1.path = drive1.drive
  98.     dir1.path = drive1.drive
  99. End Sub
  100.  
  101. Sub File1_Click ()
  102.     res% = sndplaysound(file1.path + "\" + file1.list(file1.listindex), 0)
  103. End Sub
  104.  
  105. Sub Form_Load ()
  106.     nl$ = Chr$(10) + Chr$(13)
  107.     label2.caption = "By  Gustavo Eydelsteyn" + nl$ + "SF Bay Area - Visual Basic User Group" + nl$ + nl$ + "(510) 547-7295"
  108.  
  109. End Sub
  110.  
  111.